Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/tool.dxr/00031_ÉfÉoÉbÉOÉãÅ[É`Éì.ls

Text File | 1999-03-23 | 547 b | 45 lines

on debugstat
  global gdbgflg
  set gdbgflg to 1
end

on debugstop
  global gdbgflg
  set gdbgflg to 0
end

on printvar comment, thevar
  global gdbgflg
  if gdbgflg then
    put comment && thevar
  end if
end

on printlocalvras
  global gdbgflg
  if gdbgflg then
    showLocals()
  end if
end

on printglobalvras
  global gdbgflg
  if gdbgflg then
    showGlobals()
  end if
end

on traceon
  global gdbgflg
  if gdbgflg then
    set the trace to 1
  end if
end

on traceoff
  global gdbgflg
  if gdbgflg then
    set the trace to 0
  end if
end